home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 June / 1984-06.d64 / castle dungeonv1 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1984-01-01  |  1.7 KB  |  42 lines
  1. 1 printchr$(147):poke52,29:poke56,29:clr
  2. 2 sv=36873:s1=sv+1:s2=sv+2:s3=sv+3:v=sv+5:sb=sv+6
  3. 3 readl,n:ifn=-1then5
  4. 4 forj=0ton:reads:pokel+j,s:next:goto3
  5. 5 pokesb,110:fort=1to500:next
  6. 6 form=1to3:reada,b,c,d,e
  7. 7 pokes1,a:pokes2,b:pokes3,c:forj=15toestep-1:pokev,j:fort=1tod:next:next:next
  8. 10 fort=1to2000:next
  9. 11 printchr$(147):fort=1to500:next
  10. 12 pokesb,59:pokesv-4,242
  11. 13 fort=1to500:next
  12. 14 printchr$(144)"[145][198]ind and defuse the"
  13. 15 print:print" bombs hidden in the"
  14. 16 print:print" dungeon. [196]on't fall"
  15. 17 print:print" into a pit or get"
  16. 18 print"eaten by a beast."
  17. 19 print"[208]ress the '[204]' key for"
  18. 20 print"a levitation spell."
  19. 21 print:print"[217]ou have 5 minutes"
  20. 22 print"to complete your":print"quest."
  21. 23 poke143,val(mid$(ti$,5,2))
  22. 24 readcl:ifcl=-1then26
  23. 25 forj=cltocl+7:readcc:pokej,cc:next:goto24
  24. 26 print:print"([200]it any key to begin)"
  25. 27 geta$:ifa$=""then27
  26. 28 print"[147]":forj=1to3:pokesv+j,0:next:s$="l[207]"+chr$(34)+"d"+chr$(34)+",8:"+chr$(131)
  27. 29 for i=1tolen(s$):poke630+i,asc(mid$(s$,i)):next:poke198,i:end
  28. 30 data7878,20,114,64,73,73,32,110,85,73,110,85,64,73,112,64,75,85,64,73,85,73,110
  29. 31 data7900,20,93,32,93,93,32,93,93,93,93,93,64,73,107,64,32,93,32,93,93,93,93
  30. 32 data7922,20,113,64,75,74,64,115,125,74,75,74,64,75,109,64,73,74,64,75,125,74,75
  31. 33 data7792,17,85,64,73,112,64,110,85,64,75,64,114,64,112,32,32,112,64,75
  32. 34 data7814,16,93,32,32,107,64,115,74,64,73,32,93,32,93,32,32,107,64
  33. 35 data7836,17,74,64,75,75,32,125,85,64,75,32,75,32,74,64,75,109,64,73
  34. 40 data -1,-1
  35. 41 data0,0,219,36,5,0,236,231,36,5,237,231,226,100,0
  36. 44 data7632,247,227,246,193,215,247,235,235,7640,255,34,34,34,255,68,68,68
  37. 45 data7648,255,231,195,129,129,131,199,255,7656,255,191,95,64,90,186,255,255
  38. 46 data7664,191,121,112,1,0,135,55,115,7672,255,239,247,231,195,195,231,255
  39. 47 data7424,255,255,255,255,255,255,255,255,7440,255,255,255,129,129,255,255,255,7432
  40. 48 data255,255,255,255,255,255,255,255,7448,255,253,251,247,143,207,175,255
  41. 49 data7456,191,121,112,1,0,135,55,115,7464,255,255,231,0,0,231,255,255,-1
  42.